home *** CD-ROM | disk | FTP | other *** search
/ Wild Blue Yonder 1: 50 Years of Gs & Jets / Wild Blue Yonder - Episode 1 - 50 Years of Gs and Jets (Digital Ranch) (Spectrum Holobyte)(1-107-40-101)(1994).iso / startup.dir / 00791_Script_791 < prev    next >
Text File  |  1994-08-29  |  28KB  |  858 lines
  1. factory Array
  2. end Array
  3.  
  4.  
  5.  
  6. on startMovie
  7.   global CDroot
  8.   
  9.   initAll
  10.   initOverview
  11.   initEra
  12.   initPlane
  13.   initBlackbox
  14.   initCockpit
  15.   initPerformance
  16.   initScrapbook
  17.   initSpecs
  18.   initStories
  19.   initWeapons
  20.   initPrintext
  21.   
  22.   setSearchPath
  23.   makeAmbienceArrays
  24.   
  25.   go to movie CDroot & "Splash" 
  26. end startMovie
  27.  
  28.  
  29.  
  30.  
  31. on initAll
  32.   
  33.   global aspectLabel, aspectLabelHeight, aspectMenu, arrow, ¼
  34.          audioIncrement, backArrow, backArrowH, backArrowNeg, backArrowR, ¼
  35.          backArrowPos, backArrowV, barCast, barSprite, bgCast, bgSprite, ¼
  36.          bgVol, biteVol, blowUp, blowUpCast, blowUpName, blowUpPos, ¼
  37.          camera, cameraH, cameraNeg, cameraPos, cameraR, cameraV, DL, ¼
  38.          dummy, endPage, engineVol, firstGlobe, frameColor, globe, ¼
  39.          lastGlobe, lastShared, leftSide, mooV, mooVCast, mooVFrame, ¼
  40.          mooVPos, mooVVol, nextPage, oldFrames, oneRow, printAlert, ¼
  41.          planePic, prevPage, rightFist, rightHand, safetyBlock, seenMooV, ¼
  42.          slider, sourceFrame, stepBackNeg, stepForwardNeg, ¼
  43.          stretchFactorH, track, twoRows, upFist, upHand, watch, Win, ¼
  44.          zoomSteps, page, lastPage 
  45.   
  46.   -- CAST NUMBERS    
  47.   set backArrowNeg      = the number of cast "back arrow neg"
  48.   set backArrowPos      = the number of cast "back arrow pos"
  49.   set barCast           = the number of cast "bar"
  50.   set bgCast            = the number of cast "background"
  51.   set blowUpCast        = the number of cast "bloupcst.mov"
  52.   set cameraNeg         = the number of cast "camera neg"
  53.   set cameraPos         = the number of cast "camera pos"
  54.   set dummy             = the number of cast "dummy"
  55.   set firstGlobe        = the number of cast "first globe"
  56.   set lastGlobe         = the number of cast "last globe"
  57.   set lastShared        = the number of cast "last weapons"
  58.   set mooVCast          = the number of cast "mooVCast.mov"
  59.   set stepBackNeg       = the number of cast "step back neg"
  60.   set stepForwardNeg    = the number of cast "step forward neg"
  61.   
  62.   -- SPRITE NUMBERS
  63.   set bgSprite          =  1
  64.   set aspectMenu        =  3
  65.   set aspectLabel       =  4
  66.   set globe             =  5
  67.   set backArrow         =  6
  68.   set camera            =  7
  69.   set planePic          = 10
  70.   set page              = 12
  71.   set lastPage          = 18
  72.   set leftSide          = 24
  73.   set mooVFrame         = 25
  74.   set mooV              = 26
  75.   set track             = 27
  76.   set barSprite         = 28
  77.   set slider            = 29
  78.   set blowUp            = 41
  79.   
  80.   -- CONSTANTS
  81.   set arrow             =  -1                           
  82.   set aspectLabelHeight =  31
  83.   set backArrowH        =  31
  84.   set backArrowV        = 414
  85.   set backArrowR        =  12
  86.   set bgVol             =   4
  87.   set biteVol           =   2
  88.   set blowUpName        =   0
  89.   set blowUpPos         =   4
  90.   set cameraH           =  32
  91.   set cameraR           =  13
  92.   set cameraV           = 378
  93.   set engineVol         =   3
  94.   set frameColor        = 255
  95.   set mooVPos           =   3
  96.   set mooVVol           =   1
  97.   set oneRow            =   8  
  98.   set Win               = 256
  99.   set safetyBlock       = 204800
  100.   set sourceFrame       = "start"
  101.   set stretchFactorH    =   1
  102.   set twoRows           =  16
  103.   set watch             =   4
  104.   set zoomSteps         =  30
  105.   set audioIncrement    = 255/zoomSteps
  106.   
  107.   -- CURSORS
  108.   set endPage    = [the number of cast "endPage cursor", ¼
  109.                     the number of cast "endPage mask"]
  110.   set nextPage   = [the number of cast "nextPage cursor", ¼
  111.                     the number of cast "nextPage mask"]
  112.   set prevPage   = [the number of cast "prevPage cursor", ¼
  113.                     the number of cast "prevPage mask"]
  114.   set upHand     = [the number of cast "upHand cursor", ¼
  115.                     the number of cast "upHand mask"]
  116.   set upFist     = [the number of cast "upFist cursor", ¼
  117.                     the number of cast "upFist mask"]
  118.   set rightHand  = [the number of cast "rightHand cursor", ¼
  119.                     the number of cast "rightHand mask"]
  120.   set rightFist  = [the number of cast "rightFist cursor", ¼
  121.                     the number of cast "rightFist mask"]
  122.   
  123.   -- MACHINE-SPECIFIC GLOBALS
  124.   
  125.   -- CONSTANTS
  126.   if the machineType = Win then set DL = "\"
  127.   else                          set DL = ":"
  128.   
  129.   set alertA    = "To print a photo, you must:"
  130.   set alertB    = "1. Move the mouse over the photo."
  131.   set alertC    = "2. Hold down the shift key and click"
  132.   set alertD    = "     the mouse to blow up the photo."
  133.   set alertE    = "3. Click the mouse to reduce the photo."
  134.   set alertF    = "4. Hold down the command (apple) key and"
  135.   set alertG    = "     press P."
  136.   
  137.   set LF        = RETURN
  138.   
  139.   if the machineType <> Win then    
  140.     set printAlert = alertA &LF& alertB &LF& alertC &LF& alertD &LF& ¼
  141.                      alertE &LF& alertF &LF& alertG     
  142.   end if
  143.   
  144.   
  145.   
  146.   -- The first time the user visits a movie containing a QT video, the 
  147.   -- video in that movie starts automatically.  After that, he has to push 
  148.   -- the video button (camera icon) to play the video.  The array called 
  149.   -- seenMooV keeps track of whether a movie's video has already been seen.   
  150.   if not objectP( seenMooV ) then set seenMooV = Array( mNew )
  151.   
  152.   -- The slots in seenMooV follow a code similar to that of biteNames
  153.   -- and biteLengths.  (See below.)  The first two digits are the era and
  154.   -- plane.  The last digit corresponds to the movie: 1 for plane movie, 2
  155.   -- for weapons movie, and 3 for black box movie.  Initially, all slots
  156.   -- contain "FALSE."
  157.   
  158.   if not objectP( oldFrames ) then set oldFrames = Array( mNew )
  159.   
  160. end initAll
  161.  
  162.  
  163.  
  164.  
  165.  
  166. on initOverview
  167.   global eraPic, prefliteGlobe
  168.   
  169.   -- SPRITE NUMBERS
  170.   set eraPic        = 8
  171.   set prefliteGlobe = 6
  172. end initOverview
  173.  
  174.  
  175.  
  176.  
  177.  
  178. on initEra
  179.   
  180.   global planeLabel, planeLabelHeight, parchmentSprite, spotlight 
  181.   
  182.   -- SPRITE NUMBERS
  183.   set planeLabel        =  4
  184.   set parchmentSprite   =  2
  185.   set spotlight         =  3
  186.   
  187.   -- CONSTANTS
  188.   set planeLabelHeight  = 28.2
  189.   
  190. end initEra
  191.  
  192.  
  193.  
  194.  
  195. on initPlane
  196.   nothing
  197. end initPlane
  198.  
  199.  
  200.  
  201.  
  202. on initBlackbox
  203.   global firstBlackbox, lastBlackbox
  204.   
  205.   -- CAST NUMBERS
  206.   set firstBlackbox     = the number of cast "first blackbox"
  207.   set lastBlackbox      = the number of cast "last blackbox"  
  208. end initBlackbox
  209.  
  210.  
  211.  
  212.  
  213. on initCockpit
  214.   
  215.   global blowUpSprite, dashboard, dummySprite, horizCheck, instrLabel, ¼
  216.          instrLabelHeight, instrMenu1, instrMenu2, instrMenu3, instrPic, ¼
  217.          orientation, vertCheck
  218.   
  219.   -- SPRITE NUMBERS  
  220.   set instrMenu1        =  7
  221.   set instrMenu2        =  8
  222.   set instrMenu3        =  9
  223.   set dashboard         = 10
  224.   set instrPic          = 11
  225.   set instrLabel        = 12
  226.   set blowUpSprite      = 13
  227.   set dummySprite       = 48
  228.   
  229.   -- CONSTANTS
  230.   set instrLabelHeight  = 23.4
  231.   
  232.   set horizCheck = ¼
  233.     "lightCpitLabels( the mouseV, instrMenu1Top, instrLabel, instrPic, instrLabelHeight, startCast )"
  234.   
  235.   set line1 = "if rollOver( instrMenu1 ) then"
  236.   set line2 = "lightCpitLabels( the mouseV, instrMenu1Top, instrLabel, instrPic, instrLabelHeight, startCast )"
  237.   set line3 = "else if rollOver( instrMenu2 ) then"
  238.   set line4 = "lightCpitLabels( the mouseV, instrMenu2Top, instrLabel, instrPic, instrLabelHeight, startCast )"
  239.   set line5 = "else"
  240.   set line6 = "lightCpitLabels( the mouseV, instrMenu3Top, instrLabel, instrPic, instrLabelHeight, startCast )"
  241.   set line7 = "end if"
  242.   set LF    = RETURN
  243.   
  244.   set vertCheck = string( line1 &LF& line2 &LF& line3 &LF& ¼
  245.                           line4 &LF& line5 &LF& line6 &LF& line7 )
  246.   
  247.   if not objectP( orientation ) then set orientation = Array( mNew )
  248.   orientation( mPut, 11, #horiz )
  249.   orientation( mPut, 12, #vert  )
  250.   orientation( mPut, 13, #horiz )
  251.   orientation( mPut, 14, #vert  )
  252.   orientation( mPut, 15, #horiz )
  253.   orientation( mPut, 21, #horiz )
  254.   orientation( mPut, 22, #horiz )
  255.   orientation( mPut, 23, #horiz )
  256.   orientation( mPut, 24, #horiz )
  257.   orientation( mPut, 25, #horiz )
  258.   orientation( mPut, 31, #vert  )
  259.   orientation( mPut, 32, #horiz )
  260.   orientation( mPut, 33, #horiz )
  261.   orientation( mPut, 34, #horiz )
  262.   orientation( mPut, 35, #vert  )
  263.   orientation( mPut, 41, #horiz )
  264.   orientation( mPut, 42, #horiz )
  265.   orientation( mPut, 43, #horiz )
  266.   orientation( mPut, 44, #horiz )
  267.   orientation( mPut, 45, #horiz )
  268.   
  269. end initCockpit
  270.  
  271.  
  272.  
  273.  
  274.  
  275. on initPerformance
  276.   
  277.   global firstPerformance, lastPerformance, perfLabel, perfLabelHeight, ¼
  278.          perfMenu, perfStartCast, plane1Bar, plane2Bar, plane3Bar, ¼
  279.          plane4Bar, plane5Bar 
  280.   
  281.   -- CAST NUMBERS  
  282.   set firstPerformance  = the number of cast "first performance"
  283.   set lastPerformance   = the number of cast "last performance" 
  284.   set perfStartCast     = the number of cast "performance menu"
  285.   
  286.   --CONSTANTS
  287.   set perfLabelHeight   =   30
  288.   
  289.   -- SPRITE NUMBERS  
  290.   set perfLabel         =    9
  291.   set perfMenu          =    8
  292.   set plane1Bar         =   17
  293.   set plane2Bar         =   18
  294.   set plane3Bar         =   19
  295.   set plane4Bar         =   20
  296.   set plane5Bar         =   21
  297.   
  298. end initPerformance
  299.  
  300.  
  301.  
  302.  
  303. on initScrapbook
  304.   global blowupA, blowupB, blowupC, firstScrapbook, lastScrapbook, ¼
  305.          lastBlowupA, lastBlowupB, lastBlowupC
  306.   
  307.   -- CAST NUMBERS
  308.   set firstScrapbook    = the number of cast "first scrapbook"
  309.   set lastScrapbook     = the number of cast "last scrapbook"
  310.   
  311.   -- SPRITE NUMBERS
  312.   set blowupA           = 14
  313.   set blowupB           = 15
  314.   set blowupC           = 16
  315.   set lastBlowupA       = 20
  316.   set lastBlowupB       = 21
  317.   set lastBlowupC       = 22
  318.   
  319. end initScrapbook
  320.  
  321.  
  322.  
  323.  
  324. on initSpecs
  325.   
  326.   global engineTimes, firstSpecs, lastSpecs, spec, specLabel, ¼
  327.          specLabelHeight, specMenu, specStartCast 
  328.   
  329.   -- CAST NUMBERS
  330.   set firstSpecs        = the number of cast "specs menu"
  331.   set lastSpecs         = the number of cast "power"
  332.   set specStartCast     = the number of cast "specs menu"
  333.   
  334.   -- SPRITE NUMBERS
  335.   set specLabel         =  8
  336.   set specMenu          =  7
  337.   
  338.   -- CONSTANTS
  339.   set specLabelHeight   = 30.25
  340.   
  341.   -- This section creates an array containing the lengths of the engine sounds.
  342.   -- The array is called engineTimes.
  343.   
  344.   if not objectP( engineTimes ) then 
  345.     set engineTimes = Array( mNew )
  346.     engineTimes( mPut, 11, 768 )
  347.     engineTimes( mPut, 12, 678 )
  348.     engineTimes( mPut, 13, 450 )
  349.     engineTimes( mPut, 14, 528 )
  350.     engineTimes( mPut, 15, 750 )
  351.     engineTimes( mPut, 21, 804 )
  352.     engineTimes( mPut, 22, 630 )
  353.     engineTimes( mPut, 23, 498 )
  354.     engineTimes( mPut, 24, 360 )
  355.     engineTimes( mPut, 25, 468 )
  356.     engineTimes( mPut, 31, 636 )
  357.     engineTimes( mPut, 32, 594 )
  358.     engineTimes( mPut, 33, 516 )
  359.     engineTimes( mPut, 34, 780 )
  360.     engineTimes( mPut, 35, 444 )
  361.     engineTimes( mPut, 41, 708 )
  362.     engineTimes( mPut, 42, 348 )
  363.     engineTimes( mPut, 43, 654 )
  364.     engineTimes( mPut, 44, 564 )
  365.     engineTimes( mPut, 45, 564 )
  366.   end if
  367.   
  368. end initSpecs
  369.  
  370.  
  371.  
  372.  
  373.  
  374.  
  375. on initStories
  376.   
  377.   global biteChannel, biteHeight, biteLengths, biteTitles, biteZone, ¼
  378.          firstRadio, firstStories, lastRadio, lastStories, MacBiteTitles, ¼
  379.          MacBiteZone, MacStorText, tabsLeftEdge, tabWidth, tagHilite, ¼
  380.          tagHilite1, Win, WinBiteTitles, WinBiteZone, WinStorText, ¼
  381.          lastMacStorText, lastWinStorText
  382.   
  383.   -- CAST NUMBERS
  384.   set firstRadio        = the number of cast "first radio"
  385.   set firstStories      = the number of cast "first stories"
  386.   set lastRadio         = the number of cast "last radio"
  387.   set lastStories       = the number of cast "last stories"
  388.   set tagHilite1        = the number of cast "luggage tag hilite"
  389.   
  390.   -- SPRITE NUMBERS
  391.   set tagHilite         =   9
  392.   
  393.   -- CONSTANTS
  394.   set biteChannel       =   1
  395.   set tabsLeftEdge      = 175
  396.   set tabWidth          =  66
  397.   
  398.   -- MACHINE-SPECIFIC GLOBALS
  399.   
  400.   -- SPRITE NUMBERS
  401.   set MacBiteTitles     =  25
  402.   set MacBiteZone       =  32
  403.   set MacStorText       =  14
  404.   set lastMacStorText   =  20
  405.   set WinBiteTitles     =  33
  406.   set WinBiteZone       =  40
  407.   set WinStorText       =  15
  408.   set lastWinStorText   =  21
  409.   
  410.   -- CONSTANTS
  411.   set MacBiteHeight     =  27.75
  412.   set WinBiteHeight     =  32.00
  413.   
  414.   if the machineType = Win then
  415.     set biteHeight      = WinBiteHeight
  416.     set biteTitles      = WinBiteTitles
  417.     set biteZone        = WinBiteZone
  418.   else
  419.     set biteHeight      = MacBiteHeight
  420.     set biteTitles      = MacBiteTitles
  421.     set biteZone        = MacBiteZone
  422.   end if
  423.   
  424.   -- The first two digits of each slot in biteLengths correspond to 
  425.   -- the era and plane. The third digit is the story number, which 
  426.   -- ranges from 1 to 6.  The fourth digit indicates the order of the 
  427.   -- bite within the story.
  428.   
  429.   if not objectP( biteLengths ) then
  430.     set biteLengths = Array( mNew )
  431.     biteLengths( mPut, 1151,  972 )
  432.     biteLengths( mPut, 1152, 1224 )
  433.     biteLengths( mPut, 1153, 1260 )
  434.     biteLengths( mPut, 1154, 1638 )
  435.     biteLengths( mPut, 1155,  876 )
  436.     biteLengths( mPut, 1251,  966 )
  437.     biteLengths( mPut, 1252,  972 )
  438.     biteLengths( mPut, 1253, 1440 )
  439.     biteLengths( mPut, 1254,  696 )
  440.     biteLengths( mPut, 1255,  888 )
  441.     biteLengths( mPut, 1351,  654 )
  442.     biteLengths( mPut, 1352,  948 )
  443.     biteLengths( mPut, 1353, 1356 )
  444.     biteLengths( mPut, 1461,  966 )
  445.     biteLengths( mPut, 1462, 1248 )
  446.     biteLengths( mPut, 1463,  948 )
  447.     biteLengths( mPut, 1464, 1626 )
  448.     biteLengths( mPut, 1465, 1392 )
  449.     biteLengths( mPut, 1551,  918 )
  450.     biteLengths( mPut, 1552, 1008 )
  451.     biteLengths( mPut, 1553,  846 )
  452.     biteLengths( mPut, 1554, 1002 )
  453.     biteLengths( mPut, 2161,  510 )
  454.     biteLengths( mPut, 2162, 2118 )
  455.     biteLengths( mPut, 2163, 1530 )
  456.     biteLengths( mPut, 2164,  822 )
  457.     biteLengths( mPut, 2251, 1362 )
  458.     biteLengths( mPut, 2252, 1014 )
  459.     biteLengths( mPut, 2253,  678 )
  460.     biteLengths( mPut, 2254, 1572 )
  461.     biteLengths( mPut, 2461, 1632 )
  462.     biteLengths( mPut, 2462, 2076 )
  463.     biteLengths( mPut, 2463, 1152 )
  464.     biteLengths( mPut, 2464, 1818 )
  465.     biteLengths( mPut, 2465, 1764 )
  466.     biteLengths( mPut, 2561, 1146 )
  467.     biteLengths( mPut, 2562,  846 )
  468.     biteLengths( mPut, 2563, 1104 )
  469.     biteLengths( mPut, 2564,  984 )
  470.     biteLengths( mPut, 2565, 1110 )
  471.     biteLengths( mPut, 3151, 1086 )
  472.     biteLengths( mPut, 3152, 1290 )
  473.     biteLengths( mPut, 3153,  606 )
  474.     biteLengths( mPut, 3154, 1302 )
  475.     biteLengths( mPut, 3351, 2100 )
  476.     biteLengths( mPut, 3352, 1050 )
  477.     biteLengths( mPut, 3353, 2514 )
  478.     biteLengths( mPut, 3354,  708 )
  479.     biteLengths( mPut, 3451, 1740 )
  480.     biteLengths( mPut, 3452, 1014 )
  481.     biteLengths( mPut, 3453, 1116 )
  482.     biteLengths( mPut, 3454, 1152 )
  483.     biteLengths( mPut, 4351,  972 )
  484.     biteLengths( mPut, 4352,  918 )
  485.     biteLengths( mPut, 4353,  948 )
  486.     biteLengths( mPut, 4354,  666 )
  487.     biteLengths( mPut, 4451, 1020 )
  488.     biteLengths( mPut, 4452,  960 )
  489.     biteLengths( mPut, 4453, 1632 )
  490.     biteLengths( mPut, 4454, 1314 )
  491.     biteLengths( mPut, 4551,  870 )
  492.     biteLengths( mPut, 4552,  918 )
  493.     biteLengths( mPut, 4553,  810 )
  494.     biteLengths( mPut, 4554, 1026 )
  495.   end if
  496.   
  497. end initStories
  498.  
  499.  
  500.  
  501.  
  502.  
  503.  
  504. on initWeapons
  505.   
  506.   global clipboard, firstWeapons, lastWeapons, lastMacWeapText1, ¼
  507.          lastMacWeapText2, lastWinWeapText1, lastWinWeapText2, ¼
  508.          MacWeapText1, MacWeapText2, planePic, weapLabel, ¼
  509.          weapLabelHeight, weapMenu, WinWeapText1, WinWeapText2
  510.   
  511.   -- CAST NUMBERS
  512.   set firstWeapons      = the number of cast "first weapons"
  513.   set lastWeapons       = the number of cast "last weapons"
  514.   
  515.   -- SPRITE NUMBERS
  516.   set clipboard         = 10  
  517.   set planePic          = 10
  518.   set weapLabel         =  9
  519.   set weapMenu          =  8
  520.   
  521.   -- CONSTANTS
  522.   set weapLabelHeight   = 30.5
  523.   
  524.   -- MACHINE-SPECIFIC GLOBALS
  525.   
  526.   -- SPRITE NUMBERS
  527.   set lastMacWeapText1 =  20
  528.   set lastMacWeapText2 =  21
  529.   set lastWinWeapText1 =  22
  530.   set lastWinWeapText2 =  23
  531.   set MacWeapText1     =  14
  532.   set MacWeapText2     =  15
  533.   set WinWeapText1     =  16
  534.   set WinWeapText2     =  17
  535.   
  536. end initWeapons
  537.  
  538.  
  539.  
  540.  
  541.  
  542. on initPrintext
  543.   global cancelPrint, doPrint, doPrintBorder, printBox, printQuestion, ¼
  544.          storyText
  545.   
  546.   -- SPRITE NUMBERS
  547.   set cancelPrint   =  4
  548.   set doPrint       =  5
  549.   set doPrintBorder =  6
  550.   set printBox      =  2
  551.   set printQuestion =  3
  552.   set storyText     =  1
  553.   
  554. end initPrintext
  555.  
  556.  
  557.  
  558.  
  559.  
  560. on setSearchPath
  561.   global CDroot, CDorHDroot, DL
  562.   
  563.   set CDorHDroot = the pathname 
  564.   
  565.   add( the searchPath, CDroot )
  566.   add( the searchPath, CDorHDroot )
  567.   add( the searchPath, "dummy" )
  568.   add( the searchPath, "dummy" )
  569.   add( the searchPath, CDroot & "JetAge"   &DL& "Video"   &DL )
  570.   add( the searchPath, CDroot & "Vietnam"  &DL& "Video"   &DL )
  571.   add( the searchPath, CDroot & "Desert"   &DL& "Video"   &DL )
  572.   add( the searchPath, CDroot & "Tomorrow" &DL& "Video"   &DL )
  573.   add( the searchPath, CDroot & "JetAge"   &DL& "Blowups" &DL )
  574.   add( the searchPath, CDroot & "Vietnam"  &DL& "Blowups" &DL )
  575.   add( the searchPath, CDroot & "Desert"   &DL& "Blowups" &DL )
  576.   add( the searchPath, CDroot & "Tomorrow" &DL& "Blowups" &DL )
  577.   
  578. end setSearchPath  
  579.  
  580.  
  581.  
  582.  
  583.  
  584. on makeAmbienceArrays
  585.   
  586.   global ambience, ambienceCode, bgVol, biteVol, engineVol, fadeInLength, ¼
  587.          fadeOutLength, fadePoint, mooVVol, volumes 
  588.   
  589.   -- The array called "volumes" contains the initial volumes of the various 
  590.   -- types of audio:  QuickTime movies, sound bites, engine noises,
  591.   -- and background ambience. All four can be reset in the Control Panel
  592.   -- movie.
  593.   
  594.   if not objectP( volumes ) then
  595.     set volumes = Array( mNew )
  596.     volumes( mPut, mooVVol,   255.0 )
  597.     volumes( mPut, biteVol,   255.0 )
  598.     volumes( mPut, engineVol, 255.0 )
  599.     volumes( mPut, bgVol,     100.0 )    
  600.   end if
  601.   
  602.   -- The following globals determine how quickly the various sounds fade in
  603.   -- and out.
  604.   set fadeInLength      = 200
  605.   set fadeOutLength     = 200
  606.   
  607.   -- Two arrays called "ambience" and "fadePoint" contain information about
  608.   -- which sound files are used for ambience, and when those sounds should 
  609.   -- start fading out during crossfades to new sounds.
  610.   
  611.   if not objectP( ambience)   then set ambience = Array( mNew )
  612.   if not objectP( fadePoint ) then set fadePoint = Array( mNew )
  613.   
  614.   -- The structure of these two arrays is as follows:
  615.   
  616.   -- 000                    dummy
  617.   
  618.   -- 001 - 099 OVERVIEW     general ambience
  619.   
  620.   -- 100 - 124 JET AGE      era songs 
  621.   -- 125 - 149              era segues
  622.   -- 150 - 159 XP59         cockpit chatter
  623.   -- 160 - 169 F86          cockpit chatter
  624.   -- 170 - 179 X1           cockpit chatter
  625.   -- 180 - 189 Me262        cockpit chatter
  626.   -- 190 - 199 B47          cockpit chatter
  627.   
  628.   -- 200 - 224 VIETNAM      era songs
  629.   -- 225 - 249              era segues
  630.   -- 250 - 259 B52          cockpit chatter
  631.   -- 260 - 269 F105         cockpit chatter
  632.   -- 270 - 279 A6           cockpit chatter
  633.   -- 280 - 289 F4           cockpit chatter
  634.   -- 290 - 299 SR71         cockpit chatter
  635.   
  636.   -- 300 - 324 DESERT STORM era songs
  637.   -- 325 - 349              era segues
  638.   -- 350 - 359 F15          cockpit chatter
  639.   -- 360 - 369 F16          cockpit chatter
  640.   -- 370 - 379 F14          cockpit chatter
  641.   -- 380 - 389 F117         cockpit chatter
  642.   -- 390 - 399 MIG29        cockpit chatter
  643.   
  644.   -- 400 - 424 TOMORROW     era songs
  645.   -- 425 - 449              era segues
  646.   -- 450 - 459 YF22         cockpit chatter
  647.   -- 460 - 469 V22          cockpit chatter
  648.   -- 470 - 479 X31          cockpit chatter
  649.   -- 480 - 489 B2           cockpit chatter
  650.   -- 490 - 499 X29          cockpit chatter
  651.   
  652.   --DUMMY AND OVERVIEW
  653.   
  654.   ambience(  mPut,   0, 0 )
  655.   fadePoint( mPut,   0, 9999 )
  656.   ambience(  mPut,   1, #wind )
  657.   fadePoint( mPut,   1, 1800 - fadeOutLength )
  658.   
  659.   -- JET AGE  
  660.   
  661.   ambience(  mPut, 100, #big1 )
  662.   fadePoint( mPut, 100, 2214 - fadeOutLength )
  663.   ambience(  mPut, 101, #big2 )
  664.   fadePoint( mPut, 101, 2910 - fadeOutLength )
  665.   ambience(  mPut, 102, #big3 )
  666.   fadePoint( mPut, 102, 2070 - fadeOutLength )
  667.   ambience(  mPut, 103, #isnt1 )
  668.   fadePoint( mPut, 103, 2952 - fadeOutLength )
  669.   ambience(  mPut, 104, #isnt2 )
  670.   fadePoint( mPut, 104, 1626 - fadeOutLength )
  671.   ambience(  mPut, 105, #isnt3 )
  672.   fadePoint( mPut, 105, 2016 - fadeOutLength )
  673.   ambience(  mPut, 106, #mona1 )
  674.   fadePoint( mPut, 106, 2052 - fadeOutLength )
  675.   ambience(  mPut, 107, #mona2 )
  676.   fadePoint( mPut, 107, 2034 - fadeOutLength )
  677.   ambience(  mPut, 108, #mona3 )
  678.   fadePoint( mPut, 108, 2514 - fadeOutLength )
  679.   ambience(  mPut, 109, #pretty )
  680.   fadePoint( mPut, 109, 2688 - fadeOutLength )
  681.   ambience(  mPut, 125, #flyby1 )
  682.   fadePoint( mPut, 125, 654 - fadeOutLength )
  683.   ambience(  mPut, 126, #flyby2 )
  684.   fadePoint( mPut, 126, 570 - fadeOutLength )
  685.   ambience(  mPut, 127, #flyby3 )
  686.   fadePoint( mPut, 127, 612 - fadeOutLength )    
  687.   ambience(  mPut, 128, #flyby4 )
  688.   fadePoint( mPut, 128, 630 - fadeOutLength )
  689.   ambience(  mPut, 129, #flyby5 )
  690.   fadePoint( mPut, 129, 570 - fadeOutLength )
  691.   ambience(  mPut, 130, #limit )
  692.   fadePoint( mPut, 130, 1302 - fadeOutLength )
  693.   ambience(  mPut, 131, #sputnik)
  694.   fadePoint( mPut, 131, 750 - fadeOutLength )
  695.   ambience(  mPut, 132, #fired)
  696.   fadePoint( mPut, 132, 744 - fadeOutLength )
  697.   ambience(  mPut, 133, #fadeaway)
  698.   fadePoint( mPut, 133, 1314 - fadeOutLength )
  699.   ambience(  mPut, 134, #erabomb)
  700.   fadePoint( mPut, 134, 1134 - fadeOutLength )
  701.   ambience(  mPut, 135, #jfkcuba)
  702.   fadePoint( mPut, 135, 1110 - fadeOutLength )
  703.   ambience(  mPut, 136, #uncuba)
  704.   fadePoint( mPut, 136, 942 - fadeOutLength )
  705.   ambience(  mPut, 137, #traitors)
  706.   fadePoint( mPut, 137, 522 - fadeOutLength )
  707.   ambience(  mPut, 138, #invade)
  708.   fadePoint( mPut, 138, 594 - fadeOutLength )
  709.   ambience(  mPut, 139, #truce)
  710.   fadePoint( mPut, 139, 534 - fadeOutLength )
  711.   ambience(  mPut, 140, #endwwii)
  712.   fadePoint( mPut, 140, 420 - fadeOutLength )
  713.   ambience(  mPut, 150, #chatter)
  714.   fadePoint( mPut, 150, 2550 - fadeOutLength )
  715.   ambience(  mPut, 160, #chatter)
  716.   fadePoint( mPut, 160, 3297 - fadeOutLength )
  717.   ambience(  mPut, 190, #chatter)
  718.   fadePoint( mPut, 190, 3042 - fadeOutLength )
  719.   
  720.   -- VIETNAM
  721.   
  722.   ambience(  mPut, 200, #psycho1 )
  723.   fadePoint( mPut, 200, 1650 - fadeOutLength )
  724.   ambience(  mPut, 201, #psycho2 )
  725.   fadePoint( mPut, 201, 2124 - fadeOutLength )
  726.   ambience(  mPut, 202, #psycho3 )
  727.   fadePoint( mPut, 202, 2112 - fadeOutLength )
  728.   ambience(  mPut, 203, #rocket1 )
  729.   fadePoint( mPut, 203, 2430 - fadeOutLength )
  730.   ambience(  mPut, 204, #rocket2 )
  731.   fadePoint( mPut, 204, 2652 - fadeOutLength )
  732.   ambience(  mPut, 205, #rocket3 )
  733.   fadePoint( mPut, 205, 2844 - fadeOutLength )
  734.   ambience(  mPut, 206, #rocket4 )
  735.   fadePoint( mPut, 206, 2700 - fadeOutLength )
  736.   ambience(  mPut, 207, #spirit1 )
  737.   fadePoint( mPut, 207, 1884 - fadeOutLength )
  738.   ambience(  mPut, 208, #spirit2 )
  739.   fadePoint( mPut, 208, 1860 - fadeOutLength )
  740.   ambience(  mPut, 209, #spirit3 )
  741.   fadePoint( mPut, 209, 1878 - fadeOutLength )
  742.   ambience(  mPut, 210, #spirit4 )
  743.   fadePoint( mPut, 210, 2238 - fadeOutLength )  
  744.   ambience(  mPut, 211, #scar1 )
  745.   fadePoint( mPut, 211, 2466 - fadeOutLength )
  746.   ambience(  mPut, 212, #scar2 )
  747.   fadePoint( mPut, 212, 2250 - fadeOutLength )
  748.   ambience(  mPut, 225, #flyby1 )
  749.   fadePoint( mPut, 225, 468 - fadeOutLength )
  750.   ambience(  mPut, 226, #flyby2 )
  751.   fadePoint( mPut, 226, 534 - fadeOutLength )
  752.   ambience(  mPut, 227, #flyby3 )
  753.   fadePoint( mPut, 227, 336 - fadeOutLength )    
  754.   ambience(  mPut, 228, #flyby4 )
  755.   fadePoint( mPut, 228, 678 - fadeOutLength )
  756.   ambience(  mPut, 229, #honor )
  757.   fadePoint( mPut, 229, 636 - fadeOutLength )
  758.   ambience(  mPut, 230, #quitter)
  759.   fadePoint( mPut, 230, 990 - fadeOutLength )
  760.   ambience(  mPut, 231, #johnson)
  761.   fadePoint( mPut, 231, 558 - fadeOutLength )
  762.   ambience(  mPut, 232, #dream)
  763.   fadePoint( mPut, 232, 1338 - fadeOutLength )
  764.   ambience(  mPut, 233, #apollo)
  765.   fadePoint( mPut, 233, 900 - fadeOutLength )
  766.   ambience(  mPut, 234, #moon)
  767.   fadePoint( mPut, 234, 798 - fadeOutLength )
  768.   ambience(  mPut, 250, #chatter)
  769.   fadePoint( mPut, 250, 2010 - fadeOutLength )
  770.   ambience(  mPut, 260, #chatter)
  771.   fadePoint( mPut, 260, 5801 - fadeOutLength )
  772.   ambience(  mPut, 280, #chatter)
  773.   fadePoint( mPut, 280, 1956 - fadeOutLength )
  774.   ambience(  mPut, 290, #chatter)
  775.   fadePoint( mPut, 290, 1944 - fadeOutLength )
  776.   
  777.   -- DESERT STORM
  778.   
  779.   ambience(  mPut, 300, #afraida )
  780.   fadePoint( mPut, 300, 2622 - fadeOutLength )
  781.   ambience(  mPut, 301, #afraidb )
  782.   fadePoint( mPut, 301, 2064 - fadeOutLength )
  783.   ambience(  mPut, 302, #afraidc )
  784.   fadePoint( mPut, 302, 2064 - fadeOutLength )
  785.   ambience(  mPut, 303, #darbari1 )
  786.   fadePoint( mPut, 303, 2466 - fadeOutLength )
  787.   ambience(  mPut, 304, #darbari2 )
  788.   fadePoint( mPut, 304, 2466 - fadeOutLength )
  789.   ambience(  mPut, 305, #wind1 )
  790.   fadePoint( mPut, 305, 2556 - fadeOutLength )
  791.   ambience(  mPut, 306, #wind2 )
  792.   fadePoint( mPut, 306, 1674 - fadeOutLength )
  793.   ambience(  mPut, 307, #wind3 )
  794.   fadePoint( mPut, 307, 2214 - fadeOutLength )
  795.   ambience(  mPut, 308, #wind4 )
  796.   fadePoint( mPut, 308, 1530 - fadeOutLength )
  797.   ambience(  mPut, 309, #where1 )
  798.   fadePoint( mPut, 309, 2634 - fadeOutLength )
  799.   ambience(  mPut, 310, #where2 )
  800.   fadePoint( mPut, 310, 2634 - fadeOutLength )
  801.   ambience(  mPut, 325, #flyby1 )
  802.   fadePoint( mPut, 325, 618 - fadeOutLength )
  803.   ambience(  mPut, 326, #flyby2 )
  804.   fadePoint( mPut, 326, 462 - fadeOutLength )
  805.   ambience(  mPut, 327, #flyby3 )
  806.   fadePoint( mPut, 327, 444 - fadeOutLength )    
  807.   ambience(  mPut, 328, #flyby4 )
  808.   fadePoint( mPut, 328, 384 - fadeOutLength )
  809.   ambience(  mPut, 329, #annex )
  810.   fadePoint( mPut, 329, 708 - fadeOutLength )
  811.   ambience(  mPut, 330, #attack )
  812.   fadePoint( mPut, 330, 792 - fadeOutLength )
  813.   ambience(  mPut, 331, #capable)
  814.   fadePoint( mPut, 331, 600 - fadeOutLength )
  815.   ambience(  mPut, 332, #killit)
  816.   fadePoint( mPut, 332, 486 - fadeOutLength )
  817.   ambience(  mPut, 333, #scud)
  818.   fadePoint( mPut, 333, 576 - fadeOutLength )
  819.   ambience(  mPut, 350, #chatter)
  820.   fadePoint( mPut, 350, 1008 - fadeOutLength )
  821.   ambience(  mPut, 360, #chatter)
  822.   fadePoint( mPut, 360, 2376 - fadeOutLength )
  823.   ambience(  mPut, 370, #chatter)
  824.   fadePoint( mPut, 370, 936 - fadeOutLength )
  825.   ambience(  mPut, 380, #chatter)
  826.   fadePoint( mPut, 380, 4050 - fadeOutLength )
  827.   ambience(  mPut, 390, #chatter)
  828.   fadePoint( mPut, 390, 2736 - fadeOutLength )
  829.   
  830.   -- TOMORROW
  831.   
  832.   ambience(  mPut, 400, #far1 )
  833.   fadePoint( mPut, 400, 2724 - fadeOutLength )
  834.   ambience(  mPut, 401, #far2 )
  835.   fadePoint( mPut, 401, 2418 - fadeOutLength )
  836.   ambience(  mPut, 402, #outback1 )
  837.   fadePoint( mPut, 402, 2946 - fadeOutLength )
  838.   ambience(  mPut, 403, #outback2 )
  839.   fadePoint( mPut, 403, 1998 - fadeOutLength )
  840.   ambience(  mPut, 404, #rock1 )
  841.   fadePoint( mPut, 404, 2652 - fadeOutLength )
  842.   ambience(  mPut, 405, #rock2 )
  843.   fadePoint( mPut, 405, 2652 - fadeOutLength )
  844.   ambience(  mPut, 406, #rock3 )
  845.   fadePoint( mPut, 406, 2748 - fadeOutLength )
  846.   ambience(  mPut, 407, #darbarit )
  847.   fadePoint( mPut, 407, 2556 - fadeOutLength )
  848.   ambience(  mPut, 425, #flyby1 )
  849.   fadePoint( mPut, 425, 462 - fadeOutLength )
  850.   ambience(  mPut, 426, #flyby2 )
  851.   fadePoint( mPut, 426, 828 - fadeOutLength )
  852.   ambience(  mPut, 460, #chatter)
  853.   fadePoint( mPut, 460, 1314 - fadeOutLength )
  854.   ambience(  mPut, 470, #chatter)
  855.   fadePoint( mPut, 470, 1800 - fadeOutLength )
  856.   
  857. end makeAmbienceArrays
  858.